﻿Public Class InputDialog

#Region "Constructors"

    Public Sub New(ByVal title As String, ByVal message As String)
        Me.New(title, message, String.Empty)
    End Sub

    Public Sub New(ByVal title As String, ByVal message As String, ByVal inputName As String)
        Me.InitializeComponent()
        Me.Title = title
        Me.textMessage.Text = message
        Me.textInputName.Text = inputName
    End Sub
#End Region

#Region "Properties"

    Private _inputName As String
    Public Property InputName() As String
        Get
            Return _inputName
        End Get
        Private Set(ByVal value As String)
            _inputName = value
        End Set
    End Property

#End Region

#Region "Event Handlers"

    Private Sub ButtonOK_Clicked(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Me.InputName = textInputName.Text
        Me.Close()
    End Sub

    Private Sub ButtonCancel_Clicked(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs)
        Me.Close()
    End Sub

#End Region
   
End Class
